function [ out ] = derivadaRf( x, q, f )
    define;
    out = zeros(size(x));
    for i=1:4
        D = ExpandeMatriz(x,filtroD(i));
        vecF = (f+epsilon).^(q-1);
        DxDiv = divisaoVetorizada(D, x, f);
        temp = vetorizacao(DxDiv, vecF);
        out = vetorizacaoTransposta(filtroD(i), temp ); % tah errado!
    end
    

end

